home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / ffccflow / ffccflow.lha / ffccc+flow / flow / lenocc.for < prev    next >
Text File  |  1992-07-31  |  221b  |  12 lines
  1.       INTEGER FUNCTION LENOCC(CH)
  2.       CHARACTER*(*) CH
  3.       L = LEN(CH)
  4.       DO 1 I=L,1,-1
  5.         IF(CH(I:I).NE.' ') THEN
  6.           LENOCC = I
  7.           RETURN
  8.         ENDIF
  9.     1 CONTINUE
  10.       LENOCC = 0
  11.       END
  12.